@NullResponse @RapidCodeOn
@NullResponse @CheckFlag(Black_Jerk_explained)
@NullResponse @RapidCodeOff
Since we haven't played before, let me explain you the rules #SubName

(Rules)
First thing first: you have to bet to play
You can bet just one token or all your tokens
It's up to you, but choose wisely...
Because the more you loose, the more I get to play with you after... #GrinEvil
The objective of the game is to beat the dealer - that's #Me - in one of the following ways:

1) Get 21 points on your first two cards-this called a "blackjack"-without a dealer blackjack
2) Reach a final score higher than the dealer without exceeding 21
3) Let the dealer draw additional cards until his hand exceeds 21

Cards have different values:
face cards-jacks, queens and kings-are counted as ten points
ace can count as 1 point or 11 points depending on the cards you have
all other cards are counted as the numeric value shown on the card
I will deal two cards for you and one for me
After receiving your first two cards, you add the points of your cards and then you have to decide:
"hit"-take another card-or "stand"-end turn-
You can "hit" as many times as you desire so long as the total is less or equal to 21
After you've finished playing, I'll resolve my hand by drawing cards until the hand busts or achieves a value of 17 or higher
If you reach 21 point with the 1st and the 2nd card it is considered a "blackjack" and you are paid out immediately, unless I also have a "blackjack"
In this case the hand ties and it's known as "push" or "standoff"
Wins are paid out at 1:1, or equal to the wager, except for winning blackjacks, which are paid at 3:2 (meaning that you receive three tokens for every two bet), or one and a half times the wager. If a hand ties I will only return your bet
If you win I'll pay the tokens I owe you, while if I win...
Well, let's just say I don't think you'll like that part #GrinEvil
Before we start we must set a couple of parameters
The first is the number of hands you want to play
Then we need to set the number of decks of cards you want to use
You can choose from 1 up to 8 decks of cards
Using fewer decks increases the likelihood of player blackjack
For example, if you draw a ten on your first card, the subsequent probability of drawing an ace is higher with fewer decks
Also, the likelihood of blackjack-blackjack push decreases in a game with fewer decks
Now that you know how to play we can continue @SetFlag(Black_Jerk_explained) @Goto(Setting_game)

(Black_Jerk_explained)
Do you want me to explain the rules again #SubName?
[yes] Ok @Goto(Rules)
[no] Ok @Goto(Setting_game)
@DifferentAnswer #YesorNo

(Setting_game)
How many @RT(hands,games) do you want to play #SubName? @InputVar[Number_of_hands]
How many decks do you want to use? @InputVar[Number_of_decks]

(Setting/Resetting_variables)

@SystemMessage Setting preferences...

@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Number_of_card_per_type]=[Number_of_decks]*[4]
@NullResponse @ChangeVar[Half_deck_number_of_cards]=[Number_of_decks]*[26]
@NullResponse @ChangeVar[01_counter]=[01_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[02_counter]=[02_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[03_counter]=[03_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[04_counter]=[04_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[05_counter]=[05_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[06_counter]=[06_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[07_counter]=[07_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[08_counter]=[08_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[09_counter]=[09_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[10_counter]=[10_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[Jack_counter]=[Jack_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[Queen_counter]=[Queen_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[King_counter]=[King_counter]+[Number_of_card_per_type]
@NullResponse @ChangeVar[01_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[01_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[01_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[01_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[02_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[02_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[02_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[02_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[03_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[03_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[03_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[03_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[04_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[04_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[04_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[04_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[05_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[05_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[05_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[05_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[06_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[06_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[06_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[06_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[07_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[07_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[07_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[07_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[08_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[08_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[08_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[08_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[09_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[09_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[09_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[09_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[10_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[10_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[10_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[10_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Jack_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Jack_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Jack_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Jack_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Queen_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Queen_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Queen_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[Queen_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[King_Clubs_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[King_Diamonds_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[King_Hearts_counter]=[Number_of_decks]+[0]
@NullResponse @ChangeVar[King_Spades_counter]=[Number_of_decks]+[0]
@NullResponse @RapidCodeOff

@SystemMessage System ready

Let's get started!

(New_hand)
@NullResponse @RapidCodeOn
@NullResponse @DeleteVar[Sub_number_of_cards,Sub_points,Domme_number_of_cards,Domme_points,Sub_has_ace,Domme_has_ace]
@NullResponse @DeleteFlag(Domme_turn, Sub_stand, Sub_has_ace, Domme_has_ace, Sub_stand)
@NullResponse @If[Number_of_hands]=[0]Then(Game_finished)
@NullResponse @If[#BronzeTokens]=[0]Then(No_tokens_to_bet)
@NullResponse @If[card_dealt]>=[Half_deck_number_of_cards]Then(Setting/Resetting_variables)
@NullResponse @ChangeVar[Number_of_hands]=[Number_of_hands]-[1]
@NullResponse @Goto(Place_bet)
@NullResponse @RapidCodeOff

(Game_finished)
That was the last hand #SubName
Now you have to pay what you owe me... #GrinEvil
@End

(No_tokens_to_bet)
@SystemMessage You don't have tokens to bet
You ran out of tokens #SubName
That's a real pity! @Chance10(Free_tokens)
Well, I think it's time for you to pay what you owe me #SubName...
@End

(Free_tokens)
Since I'm having fun by now, I want you to have these 10 tokens so we can continue playing @AddTokens(10 Bronze)
Make a good use of them... #Grin @Goto(New_hand)

(Place_bet)
@SystemMessage You have #BronzeTokens bronze tokens
Place your bet #SubName @InputVar[Bet]

@NullResponse @RemoveTokens(#Var[Bet] Bronze)

(Card_shuffle)
@SystemMessage Shuffling cards... @PlayAudio[System\CardShuffle.wav]

(Card_for_Sub)
@RT(Your card is a, You got a, What you got is a, The card you got is a, And your card is a)... @RTOn @Goto(Choose_card)

(Card_for_Domme)
@NotFlag(Sub_stand) @RT(My card is a, I got a, What I got is a, The card I got is a, And my card is a)... @RTOn @TempFlag(Domme_turn) @Goto(Choose_card)
@Flag(Sub_stand) @RT(My card is a, I got a, What I got is a, The card I got is a, And my card is a)... @RTOn @Goto(Choose_card)

(Choose_card)
@NullResponse @Goto(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, Jack, Queen, King)

(01)
@NullResponse @RapidCodeOn
@NullResponse @If[01_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[01_counter]=[01_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[11]
@NullResponse @NotFlag(Domme_turn) @TempFlag(Sub_has_ace) @ChangeVar[Sub_has_ace]=[Sub_has_ace]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[11]
@NullResponse @Flag(Domme_turn) @TempFlag(Domme_has_ace) @ChangeVar[Domme_has_ace]=[Domme_has_ace]+[1]
@NullResponse @Goto(Choose_01_suit)
@NullResponse @RapidCodeOff

(Choose_01_suit)
@NullResponse @Goto(01_Clubs, 01_Diamonds, 01_Hearts, 01_Spades)

(01_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Clubs_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of clubs @ShowImage[av_imagens\cards3\01\ace_of_clubs.jpg] @Goto(Command_centre)

(01_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Diamonds_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of diamonds @ShowImage[av_imagens\cards3\01\ace_of_diamonds.jpg] @Goto(Command_centre)

(01_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Hearts_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of hearts @ShowImage[av_imagens\cards3\01\ace_of_hearts.jpg] @Goto(Command_centre)

(01_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[01_Spades_counter]=[0]Then(Choose_01_suit)
@NullResponse @ChangeVar[01_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ace of spades @ShowImage[av_imagens\cards3\01\ace_of_spades.jpg] @Goto(Command_centre)

(02)
@NullResponse @RapidCodeOn
@NullResponse @If[02_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @SetVar[02_counter]=[02_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[2]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[2]
@NullResponse @Goto(Choose_02_suit)
@NullResponse @RapidCodeOff

(Choose_02_suit)
@NullResponse @Goto(02_Clubs, 02_Diamonds, 02_Hearts, 02_Spades)

(02_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Clubs_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of clubs @ShowImage[av_imagens\cards3\02\2_of_clubs.jpg] @Goto(Command_centre)

(02_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Diamonds_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of diamonds @ShowImage[av_imagens\cards3\02\2_of_diamonds.jpg] @Goto(Command_centre)

(02_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Hearts_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of hearts @ShowImage[av_imagens\cards3\02\2_of_hearts.jpg] @Goto(Command_centre)

(02_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[02_Spades_counter]=[0]Then(Choose_02_suit)
@NullResponse @ChangeVar[02_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Two of spades @ShowImage[av_imagens\cards3\02\2_of_spades.jpg] @Goto(Command_centre)

(03)
@NullResponse @RapidCodeOn
@NullResponse @If[03_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[03_counter]=[03_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[3]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[3]
@NullResponse @Goto(Choose_03_suit)
@NullResponse @RapidCodeOff

(Choose_03_suit)
@NullResponse @Goto(03_Clubs, 03_Diamonds, 03_Hearts, 03_Spades)

(03_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Clubs_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of clubs @ShowImage[av_imagens\cards3\03\3_of_clubs.jpg] @Goto(Command_centre)

(03_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Diamonds_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of diamonds @ShowImage[av_imagens\cards3\03\3_of_diamonds.jpg] @Goto(Command_centre)

(03_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Hearts_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of hearts @ShowImage[av_imagens\cards3\03\3_of_hearts.jpg] @Goto(Command_centre)

(03_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[03_Spades_counter]=[0]Then(Choose_03_suit)
@NullResponse @ChangeVar[03_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Three of spades @ShowImage[av_imagens\cards3\03\3_of_spades.jpg] @Goto(Command_centre)

(04)
@NullResponse @RapidCodeOn
@NullResponse @If[04_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[04_counter]=[04_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[4]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[4]
@NullResponse @Goto(Choose_04_suit)
@NullResponse @RapidCodeOff

(Choose_04_suit)
@NullResponse @Goto(04_Clubs, 04_Diamonds, 04_Hearts, 04_Spades)

(04_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Clubs_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of clubs @ShowImage[av_imagens\cards3\04\4_of_clubs.jpg] @Goto(Command_centre)

(04_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Diamonds_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of diamonds @ShowImage[av_imagens\cards3\04\4_of_diamonds.jpg] @Goto(Command_centre)

(04_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Hearts_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of hearts @ShowImage[av_imagens\cards3\04\4_of_hearts.jpg] @Goto(Command_centre)

(04_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[04_Spades_counter]=[0]Then(Choose_04_suit)
@NullResponse @ChangeVar[04_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Four of spades @ShowImage[av_imagens\cards3\04\4_of_spades.jpg] @Goto(Command_centre)

(05)
@NullResponse @RapidCodeOn
@NullResponse @If[05_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[05_counter]=[05_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[5]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[5]
@NullResponse @Goto(Choose_05_suit)
@NullResponse @RapidCodeOff

(Choose_05_suit)
@NullResponse @Goto(05_Clubs, 05_Diamonds, 05_Hearts, 05_Spades)

(05_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Clubs_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of clubs @ShowImage[av_imagens\cards3\05\5_of_clubs.jpg] @Goto(Command_centre)

(05_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Diamonds_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of diamonds @ShowImage[av_imagens\cards3\05\5_of_diamonds.jpg] @Goto(Command_centre)

(05_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Hearts_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of hearts @ShowImage[av_imagens\cards3\05\5_of_hearts.jpg] @Goto(Command_centre)

(05_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[05_Spades_counter]=[0]Then(Choose_05_suit)
@NullResponse @ChangeVar[05_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Five of spades @ShowImage[av_imagens\cards3\05\5_of_spades.jpg] @Goto(Command_centre)

(06)
@NullResponse @RapidCodeOn
@NullResponse @If[06_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[06_counter]=[06_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[6]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[6]
@NullResponse @Goto(Choose_06_suit)
@NullResponse @RapidCodeOff

(Choose_06_suit)
@NullResponse @Goto(06_Clubs, 06_Diamonds, 06_Hearts, 06_Spades)

(06_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Clubs_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of clubs @ShowImage[av_imagens\cards3\06\6_of_clubs.jpg] @Goto(Command_centre)

(06_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Diamonds_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of diamonds @ShowImage[av_imagens\cards3\06\6_of_diamonds.jpg] @Goto(Command_centre)

(06_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Hearts_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of hearts @ShowImage[av_imagens\cards3\06\6_of_hearts.jpg] @Goto(Command_centre)

(06_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[06_Spades_counter]=[0]Then(Choose_06_suit)
@NullResponse @ChangeVar[06_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Six of spades @ShowImage[av_imagens\cards3\06\6_of_spades.jpg] @Goto(Command_centre)

(07)
@NullResponse @RapidCodeOn
@NullResponse @If[07_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[07_counter]=[07_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[7]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[7]
@NullResponse @Goto(Choose_07_suit)
@NullResponse @RapidCodeOff

(Choose_07_suit)
@NullResponse @Goto(07_Clubs, 07_Diamonds, 07_Hearts, 07_Spades)

(07_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Clubs_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of clubs @ShowImage[av_imagens\cards3\07\7_of_clubs.jpg] @Goto(Command_centre)

(07_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Diamonds_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of diamonds @ShowImage[av_imagens\cards3\07\7_of_diamonds.jpg] @Goto(Command_centre)

(07_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Hearts_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of hearts @ShowImage[av_imagens\cards3\07\7_of_hearts.jpg] @Goto(Command_centre)

(07_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[07_Spades_counter]=[0]Then(Choose_07_suit)
@NullResponse @ChangeVar[07_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Seven of spades @ShowImage[av_imagens\cards3\07\7_of_spades.jpg] @Goto(Command_centre)

(08)
@NullResponse @RapidCodeOn
@NullResponse @If[08_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[08_counter]=[08_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[8]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[8]
@NullResponse @Goto(Choose_08_suit)
@NullResponse @RapidCodeOff

(Choose_08_suit)
@NullResponse @Goto(08_Clubs, 08_Diamonds, 08_Hearts, 08_Spades)

(08_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Clubs_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of clubs @ShowImage[av_imagens\cards3\08\8_of_clubs.jpg] @Goto(Command_centre)

(08_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Diamonds_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of diamonds @ShowImage[av_imagens\cards3\08\8_of_diamonds.jpg] @Goto(Command_centre)

(08_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Hearts_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of hearts @ShowImage[av_imagens\cards3\08\8_of_hearts.jpg] @Goto(Command_centre)

(08_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[08_Spades_counter]=[0]Then(Choose_08_suit)
@NullResponse @ChangeVar[08_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Eight of spades @ShowImage[av_imagens\cards3\08\8_of_spades.jpg] @Goto(Command_centre)

(09)
@NullResponse @RapidCodeOn
@NullResponse @If[09_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[09_counter]=[09_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[9]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[9]
@NullResponse @Goto(Choose_09_suit)
@NullResponse @RapidCodeOff

(Choose_09_suit)
@NullResponse @Goto(09_Clubs, 09_Diamonds, 09_Hearts, 09_Spades)

(09_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Clubs_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of clubs @ShowImage[av_imagens\cards3\09\9_of_clubs.jpg] @Goto(Command_centre)

(09_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Diamonds_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of diamonds @ShowImage[av_imagens\cards3\09\9_of_diamonds.jpg] @Goto(Command_centre)

(09_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Hearts_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of hearts @ShowImage[av_imagens\cards3\09\9_of_hearts.jpg] @Goto(Command_centre)

(09_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[09_Spades_counter]=[0]Then(Choose_09_suit)
@NullResponse @ChangeVar[09_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Nine of spades @ShowImage[av_imagens\cards3\09\9_of_spades.jpg] @Goto(Command_centre)

(10)
@NullResponse @RapidCodeOn
@NullResponse @If[10_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[10_counter]=[10_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_10_suit)
@NullResponse @RapidCodeOff

(Choose_10_suit)
@NullResponse @Goto(10_Clubs, 10_Diamonds, 10_Hearts, 10_Spades)

(10_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Clubs_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of clubs @ShowImage[av_imagens\cards3\10\10_of_clubs.jpg] @Goto(Command_centre)

(10_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Diamonds_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of diamonds @ShowImage[av_imagens\cards3\10\10_of_diamonds.jpg] @Goto(Command_centre)

(10_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Hearts_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of hearts @ShowImage[av_imagens\cards3\10\10_of_hearts.jpg] @Goto(Command_centre)

(10_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[10_Spades_counter]=[0]Then(Choose_10_suit)
@NullResponse @ChangeVar[10_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Ten of spades @ShowImage[av_imagens\cards3\10\10_of_spades.jpg] @Goto(Command_centre)

(Jack)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[Jack_counter]=[Jack_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_Jack_suit)
@NullResponse @RapidCodeOff

(Choose_Jack_suit)
@NullResponse @Goto(Jack_Clubs, Jack_Diamonds, Jack_Hearts, Jack_Spades)

(Jack_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Clubs_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of clubs @ShowImage[av_imagens\cards3\11\jack_of_clubs2.jpg] @Goto(Command_centre)

(Jack_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Diamonds_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of diamonds @ShowImage[av_imagens\cards3\11\jack_of_diamonds2.jpg] @Goto(Command_centre)

(Jack_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Hearts_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of hearts @ShowImage[av_imagens\cards3\11\jack_of_hearts2.jpg] @Goto(Command_centre)

(Jack_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[Jack_Spades_counter]=[0]Then(Choose_Jack_suit)
@NullResponse @ChangeVar[Jack_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Jack of spades @ShowImage[av_imagens\cards3\11\jack_of_spades2.jpg] @Goto(Command_centre)

(Queen)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[Queen_counter]=[Queen_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_Queen_suit)
@NullResponse @RapidCodeOff

(Choose_Queen_suit)
@NullResponse @Goto(Queen_Clubs, Queen_Diamonds, Queen_Hearts, Queen_Spades)

(Queen_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Clubs_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of clubs @ShowImage[av_imagens\cards3\12\queen_of_clubs2.jpg] @Goto(Command_centre)

(Queen_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Diamonds_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of diamonds @ShowImage[av_imagens\cards3\12\queen_of_diamonds2.jpg] @Goto(Command_centre)

(Queen_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Hearts_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of hearts @ShowImage[av_imagens\cards3\12\queen_of_hearts2.jpg] @Goto(Command_centre)

(Queen_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[Queen_Spades_counter]=[0]Then(Choose_Queen_suit)
@NullResponse @ChangeVar[Queen_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] Queen of spades @ShowImage[av_imagens\cards3\12\queen_of_spades2.jpg] @Goto(Command_centre)

(King)
@NullResponse @RapidCodeOn
@NullResponse @If[King_counter]=[0]Then(Choose_card)
@NullResponse @ChangeVar[card_dealt]=[card_dealt]+[1]
@NullResponse @ChangeVar[King_counter]=[King_counter]-[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_number_of_cards]=[Sub_number_of_cards]+[1]
@NullResponse @NotFlag(Domme_turn) @ChangeVar[Sub_points]=[Sub_points]+[10]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_number_of_cards]=[Domme_number_of_cards]+[1]
@NullResponse @Flag(Domme_turn) @ChangeVar[Domme_points]=[Domme_points]+[10]
@NullResponse @Goto(Choose_King_suit)
@NullResponse @RapidCodeOff

(Choose_King_suit)
@NullResponse @Goto(King_Clubs, King_Diamonds, King_Hearts, King_Spades)

(King_Clubs)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Clubs_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Clubs_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of clubs @ShowImage[av_imagens\cards3\13\king_of_clubs2.jpg] @Goto(Command_centre)

(King_Diamonds)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Diamonds_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Diamonds_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of diamonds @ShowImage[av_imagens\cards3\13\king_of_diamonds2.jpg] @Goto(Command_centre)

(King_Hearts)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Hearts_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Hearts_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of hearts @ShowImage[av_imagens\cards3\13\king_of_hearts2.jpg] @Goto(Command_centre)

(King_Spades)
@NullResponse @RapidCodeOn
@NullResponse @If[King_Spades_counter]=[0]Then(Choose_King_suit)
@NullResponse @ChangeVar[King_Spades_counter]=[Number_of_decks]-[1]
@NullResponse @RapidCodeOff

@PlayAudio[System\CardFlip.wav] King of spades @ShowImage[av_imagens\cards3\13\king_of_spades2.jpg] @Goto(Command_centre)

(Command_centre)
@NullResponse @RapidCodeOn @RTOff
@NullResponse @Flag(Domme_turn) @If[Domme_number_of_cards]=[1]Then(Hit_or_stand)
@NullResponse @NotFlag(Domme_turn) @If[Sub_number_of_cards]<[2]Then(Card_for_Sub)
@NullResponse @NotFlag(Domme_turn) @If[Sub_points]>[21]Then(Sub_busted)
@NullResponse @NotFlag(Domme_turn) @If[Sub_number_of_cards]=[2]Then(Card_for_Domme)
@NullResponse @NotFlag(Domme_turn) @If[Sub_number_of_cards]>[2]Then(Hit_or_stand)
@NullResponse @Flag(Sub_stand) @If[Domme_points]<[17]Then(Card_for_Domme)
@NullResponse @Flag(Sub_stand) @If[Domme_points]>=[17]Then(Domme_hit_or_stand)
@NullResponse @RapidCodeOff

(Hit_or_stand)
@RT(Right now you have @ShowVar[Sub_points] points, You have @ShowVar[Sub_points] points, @ShowVar[Sub_points] points for you, Right now you have @ShowVar[Sub_points] points #SubName, You have @ShowVar[Sub_points] points #SubName)
@RT(While I have @ShowVar[Domme_points] points, My points are @ShowVar[Domme_points], I have @ShowVar[Domme_points] points, Right now I have @ShowVar[Domme_points] points, @ShowVar[Domme_points] points for me #SubName)
@RT("hit" or "stand"?, "hit" or "stand" #SubName?, Will you "hit" or will you "stand" now #SubName?)
[hit] Ok @DeleteFlag(Domme_turn) @Goto(Card_for_Sub)
[stand] Ok, my turn then... @TempFlag(Sub_stand) @Goto(Card_for_Domme)
@DifferentAnswer #HitorStand

(Sub_busted)
@NullResponse @CheckFlag(Sub_has_ace) @Goto(Sub_busted_2)

(Sub_has_ace)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_has_ace]=[Sub_has_ace]-[1]
@NullResponse @ChangeVar[Sub_points]=[Sub_points]-[10]
@NullResponse @If[Sub_has_ace]=[0]Then(Delete_Sub_has_ace_flag)
@NullResponse @Goto(Command_centre)
@NullResponse @RapidCodeOff

(Delete_Sub_has_ace_flag)
@NullResponse @RapidCodeOn
@NullResponse @DeleteFlag(Sub_has_ace)
@NullResponse @Goto(Command_centre)
@NullResponse @RapidCodeOff

(Sub_busted_2)
@RT(You busted #SubName!, You busted #SubName, You busted!, You busted, You lost #SubName!, You lost #SubName, I won #SubName!, I won #SubName)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Domme_hit_or_stand)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]<[Sub_points]Then(Card_for_Domme)
@NullResponse @If[Domme_points]=[Sub_points]Then(Push)
@NullResponse @If[Domme_points]>[Sub_points]Then(Check_win)
@NullResponse @RapidCodeOff

(Push)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_points]=[21]Then(Push_blackjack)
@NullResponse @If[Domme_points]<>[21]Then(Push_confirmed)
@NullResponse @RapidCodeOff

(Push_blackjack)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_number_of_cards]=[Sub_number_of_cards]Then(Push_confirmed)
@NullResponse @If[Domme_number_of_cards]<>[Sub_number_of_cards]Then(Push_check_blackjack)
@NullResponse @RapidCodeOff

(Push_confirmed)
@RT(#Push!, #Push, Nobody won #SubName!, Nobody won #SubName, It's a #Push!, It's a #Push) @AddTokens(#Var[Bet] Bronze) @PlayAudio[System\PayoutOne.wav]
@NullResponse @Goto(New_hand)

(Push_check_blackjack)
@NullResponse @RapidCodeOn
@NullResponse @If[Domme_number_of_cards]=[2]Then(Domme_blackjack)
@NullResponse @If[Sub_number_of_cards]=[2]Then(Sub_blackjack)
@NullResponse @Goto(Push_confirmed)
@NullResponse @RapidCodeOff

(Domme_blackjack)
@RT(I did #BlackJerk!, I did #BlackJerk, #BlackJerk for #Me!, #BlackJerk for #Me, I have a #BlackJerk!, I have a #BlackJerk)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Sub_blackjack)
@RT(You did #BlackJerk!, You did #BlackJerk, #BlackJerk for you!, #BlackJerk for you, You have a #BlackJerk!, You have a #BlackJerk)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_win]=[Bet]*[3]
@NullResponse @ChangeVar[Sub_win]=[Sub_win]/[2]
@NullResponse @ChangeVar[Total_win]=[Bet]+[Sub_win]
@NullResponse @ChangeVar[Tokens_won]=[Tokens_won]+[Sub_win]
@NullResponse @AddTokens(#Var[Total_win] Bronze) @PlayAudio[System\PayoutBig.wav]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Check_win)
@NullResponse @RapidCodeOn
@NullResponse @If[Sub_points]=[21]Then(Sub_blackjack)
@NullResponse @If[Sub_points]<[21]Then(Check_Domme_win)
@NullResponse @RapidCodeOff

(Check_Domme_win)
@nullResponse @RapidCodeOn
@NullResponse @If[Domme_points]>[21]Then(Domme_busted)
@NullResponse @If[Domme_points]=[21]Then(Domme_blackjack)
@NullResponse @If[Domme_points]<[21]Then(Domme_won)
@nullResponse @RapidCodeOff

(Domme_busted)
@RT(I busted!, I busted, I lost!, I lost, You won #SubName!, You won #SubName)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Sub_win]=[Bet]+[0]
@NullResponse @ChangeVar[Total_win]=[Bet]+[Sub_win]
@NullResponse @ChangeVar[Tokens_won]=[Tokens_won]+[Sub_win]
@NullResponse @AddTokens(#Var[Total_win] Bronze) @PlayAudio[System\PayoutSmall.wav]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Domme_won)
@RT(I won #SubName!, I won #SubName, I won!, I won, You lost #SubName!, You lost #SubName)
@NullResponse @RapidCodeOn
@NullResponse @ChangeVar[Domme_win]=[Domme_win]+[Bet]
@NullResponse @Goto(New_hand)
@NullResponse @RapidCodeOff

(Repay_Domme)
@NullResponse @RapidCodeOn
@NullResponse @If[Tokens_won]>[0]Then(Good_news)
@NullResponse @If[Tokens_won]=[0]Then(Bad_news)
@NullResponse @RapidCodeOff

(Good_news)

(Bad_news)

(Delete_all_variables)
@NullResponse @RapidCodeOn
@NullResponse @DeleteVar[Number_of_hands,Number_of_decks,Number_of_card_per_type,Half_deck_number_of_cards,01_counter,02_counter,03_counter,04_counter,05_counter,06_counter,07_counter,08_counter,09_counter,10_counter,Jack_counter,Queen_counter,King_counter,01_Clubs_counter,01_Diamonds_counter,01_Hearts_counter,01_Spades_counter,02_Clubs_counter,02_Diamonds_counter,02_Hearts_counter,02_Spades_counter,03_Clubs_counter,03_Diamonds_counter,03_Hearts_counter,03_Spades_counter,04_Clubs_counter,04_Diamonds_counter,04_Hearts_counter,04_Spades_counter,05_Clubs_counter,05_Diamonds_counter,05_Hearts_counter,05_Spades_counter,06_Clubs_counter,06_Diamonds_counter,06_Hearts_counter,06_Spades_counter,07_Clubs_counter,07_Diamonds_counter,07_Hearts_counter,07_Spades_counter,08_Clubs_counter,08_Diamonds_counter,08_Hearts_counter,08_Spades_counter,09_Clubs_counter,09_Diamonds_counter,09_Hearts_counter,09_Spades_counter,10_Clubs_counter,10_Diamonds_counter,10_Hearts_counter,10_Spades_counter,Jack_Clubs_counter,Jack_Diamonds_counter,Jack_Hearts_counter,Jack_Spades_counter,Queen_Clubs_counter,Queen_Diamonds_counter,Queen_Hearts_counter,Queen_Spades_counter,King_Clubs_counter,King_Diamonds_counter,King_Hearts_counter,King_Spades_counter,card_dealt,Sub_number_of_cards,Sub_points,Sub_has_ace,Domme_number_of_cards,Domme_points,Domme_has_ace,Total_win,Sub_win,Bet]
@NullResponse @DeleteFlag(Domme_turn, Sub_stand, Sub_has_ace, Domme_has_ace, Sub_stand)
@NullResponse @RapidCodeOff